### Alizade, Dancygier, Ditlmann 
### "National Penalties Reversed"
### Replication Code 
### Appendix B
### For questions, contact jalizade@princeton.edu

# clear environment
rm(list=ls())

### Study 1 ###

# p-values
e1_p <- c(0.000004573, 0.02569, 0.7904,  0.31208, 0.2959, 0.73218, .000, 0.11580)

# bonferroni
p.adjust(e1_p, method = "bonferroni")

# benjamini
p.adjust(e1_p, method = "fdr")


### Study 2 ###

# p-values
e2_p <- c(0.000000000679, 0.01907, 0.2246, 0.7335, 0.1216, 0.686848, 0.000286, 0.00550812896, 0.53846193788, 0.00595138277, 0.00001706436)

# bonferroni
p.adjust(e2_p, method = "bonferroni")

# benjamini
p.adjust(e2_p, method = "fdr")
